home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / coding / 80x86 / code32.lzh / STRLTU.RT < prev   
Text File  |  1993-01-09  |  652b  |  30 lines
  1. public  _strltu
  2. ;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  3. ; Make all lower case letters in string uppercase
  4. ; In:
  5. ;   EDX -> string
  6. ; Out:
  7. ;   None
  8. ;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  9. _strltu:
  10.         push ax
  11.         push edx
  12. strltuml:
  13.         mov al,[edx]
  14.         or al,al
  15.         jz short strltumld
  16.         cmp al,'a'
  17.         jb short strltumlf0
  18.         cmp al,'z'
  19.         ja short strltumlf0
  20.         sub al,'a'-'A'
  21.         mov [edx],al
  22. strltumlf0:
  23.         inc edx
  24.         jmp strltuml
  25. strltumld:
  26.         pop edx
  27.         pop ax
  28.         ret
  29.  
  30.